0 CLR
100 REM SUPER PEEK
110 FOR I=680 TO 755:READ D:POKE I,D:C=C+D:NEXT
120 IF C<>8212 THEN PRINT "ERROR IN DATA STATEMENTS":END
130 SYS 680
140 DATA 160,205,140,17,3,160,2,140
150 DATA 18,3,169,76,133,124,169,191
160 DATA 133,125,169,2,133,126,96,201
170 DATA 194,208,2,169,183,201,58,144
180 DATA 1,96,76,128,0,32,247,183
190 DATA 164,20,165,21,140,228,2,141
200 DATA 229,2,162,53,120,169,47,133
210 DATA 0,134,1,172,228,2,162,55
220 DATA 120,133,0,134,1,88,169,0
230 DATA 76,145,179,0